home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / Date.quill < prev    next >
Text File  |  1996-09-26  |  1KB  |  59 lines
  1.  
  2. /**
  3.  **  $VER: Date.quill 1.0 (30.9.94)
  4.  **  By Timothy J. Aston
  5.  **
  6.  **  Pops up a requester with several date formats for you to choose from,
  7.  **  then inserts the date in the selected format at the current cursor
  8.  **  position.
  9.  **
  10.  **/
  11.  
  12.  
  13. /* Some setup first.
  14.  */
  15. options results
  16. options failat 200
  17.  
  18. /* Date formats.
  19.  */
  20. dateformat.0 = 'DD/MM/YY'
  21. dateformat.1 = 'MM/DD/YY'
  22. dateformat.2 = 'YY/MM/DD'
  23. dateformat.3 = 'DD Mmm YY'
  24. dateformat.4 = 'Mmm. DD, YYYY'
  25. dateformat.5 = 'Weekday, Mmm. DD, YYYY'
  26. dateformat.count = 6
  27.  
  28. main:
  29.     'REQUESTITEM' '"Select date format" STEM dateformat'
  30.  
  31.     if rc = 0 then do
  32.         format = result
  33.  
  34.         select
  35.             when format = 0 then do
  36.                 'TEXT' date(e)
  37.             end
  38.             when format = 1 then do
  39.                 'TEXT' date(u)
  40.             end
  41.             when format = 2 then do
  42.                 'TEXT' date(o)
  43.             end
  44.             when format = 3 then do
  45.                 'TEXT' date(n)
  46.             end
  47.             when format = 4 then do
  48.                 'TEXT' word(date(n), 2)'.' word(date(n), 1)',' left(date(s), 4)
  49.             end
  50.             when format = 5 then do
  51.                 'TEXT' date(w)',' word(date(n), 2)'.' word(date(n), 1)',' left(date(s), 4)
  52.             end
  53.         end
  54.     end
  55.     else
  56.         'SETSTATUSBAR' '"Operation cancelled"'
  57.  
  58.     exit
  59.